function celldata=loaddata(dirname1,dirname2,dirname3,dirname4,t_initial,t_end)
 len=(t_end-t_initial)/0.05;
 celldata1=cell(len,1);
 celldata2=cell(len,1);
 celldata3=cell(len,1);
 celldata4=cell(len,1);
% k=1

figure;
% 
% for i=1:len
%     a=floor(t_initial+i*0.05)
%     b=((t_initial+i*0.05-a)*10)
%     
%     pause(2);
%     
% %     if(k==1)
% %         k=0
% %         c=5
% %     else
% %         k=1
% %         c=0
% %     end
%     c=((t_initial+i*0.05-a-b*(1.0/10))*100)
%    
%     a=int2str(a)
%     
%     b=int2str(floor(b))
%     c=int2str(c)
%     letter=[dirname,'_',a,'_',b,c,'000000.txt']  
%     celldata(i)={load(letter)}
%     
%     savefigure = ['BloodVesselIndicator', '_', a, '_', b, c, '000000.jpg'];
%     contour(celldata{i});
%     print('-djpeg', savefigure);
% end

a1 = floor(t_initial);
a2 = floor(t_end);
b1 = t_initial - a1;
b2 = t_end - a2;

for i = a1 : a2
    for j = 0:5:95
        if( ((i == a1) && (j/100.0 >= b1)) || ((i > a1) && (i < a2)) || ((i == a2) && (j/100.0 <= b2)) )
            a = int2str(i);
            if(j < 10)
                c = ['0', int2str(j)];
            else
                c = int2str(j);
            end
            letter1=[dirname1,'_',a,'_',c,'000000.dat'];
            letter2=[dirname2,'_',a,'_',c,'000000.dat'];
            letter3=[dirname3,'_',a,'_',c,'000000.dat'];
            letter4=[dirname4,'_',a,'_',c,'000000.dat'];
            
            celldata1(i+1)={load(letter1)};
            celldata2(i+1)={load(letter2)};
            celldata3(i+1)={load(letter3)};
            celldata4(i+1)={load(letter4)};
            
            celldata1{i+1,1}(:,201)=0;
            celldata2{i+1,1}(:,201)=0;
            celldata3{i+1,1}(:,201)=0;
            celldata4{i+1,1}(:,201)=0;
            %celldata(i)=abs(celldata(i));
    
            savefigure = ['_', a, '_', c, '000000.jpg'];
            subplot(2,2,1), imagesc(celldata1{i+1});
            title(dirname1)
            colorbar;
            
            subplot(2,2,2), imagesc(celldata2{i+1});
            title(dirname2)
            colorbar;
            
            subplot(2,2,3), imagesc(celldata3{i+1});
            title(dirname3)
            colorbar;
            
            subplot(2,2,4), imagesc(celldata4{i+1});
            title(dirname4)
            colorbar;
            
            print('-djpeg', savefigure);
        end
    end
end